home *** CD-ROM | disk | FTP | other *** search
/ Business Assistant / Business Assistant.iso / acctg / pcaccnt2 / printman.bas < prev    next >
Encoding:
BASIC Source File  |  1980-01-01  |  768 b   |  28 lines
  1. 1000 CLS
  2. 1050 PRINT "This program prints the PC-Accounting Manual out on paper"
  3. 1100 PRINT "Make sure your printer is on with plenty of paper."
  4. 1150 PRINT "Put the PC-Accounting disk in the defalt disk drive"
  5. 1200 PRINT "What page number do you want to start printing at?"
  6. 1210 INPUT P
  7. 1215 OPEN "I",#1,"MAN"
  8. 1220 FOR T = 1 TO 5
  9. 1230 LPRINT ""
  10. 1240 NEXT T
  11. 1400 PG = 1
  12. 1410 FOR T = 1 TO 55
  13. 1415 IF EOF(1) THEN END
  14. 1420 LINE INPUT #1,A$
  15. 1430 IF PG >= P THEN LPRINT TAB(7) A$
  16. 1440 NEXT T
  17. 1445 IF PG >= P THEN LPRINT ""
  18. 1450 IF PG >= P THEN LPRINT TAB(35) PG
  19. 1460 FOR T = 1 TO 9
  20. 1470 IF PG >= P THEN LPRINT ""
  21. 1480 NEXT T
  22. 1500 PG = PG + 1
  23. 1510 GOTO 1410
  24.  P THEN LPRINT TAB(35) PG
  25. 1460 FOR T = 1 TO 9
  26. 1470 IF PG >= P THEN LPRINT ""
  27. 1480 NEXT T
  28. 1